00100	BEGIN INTEGER N,I,J,BRK;REAL X,Y,C,DX,UP,LOW,HIGH;
00200	LABEL A;STRING TEMP;
00250	FORTRAN REAL PROCEDURE SIND(REAL X);
00300	A:
00400	OUTSTR("
00500	N=");N←CVD(INCHWL);
00600	OUTSTR("C=");TEMP←INCHWL;C←REALSCAN(TEMP,BRK);
00610	OUTSTR("LOW=");TEMP←INCHWL;LOW←REALSCAN(TEMP,BRK);
00620	OUTSTR("DX=");TEMP←INCHWL;DX←REALSCAN(TEMP,BRK);
00630	OUTSTR("HIGH=");TEMP←INCHWL;HIGH←REALSCAN(TEMP,BRK);
00700	FOR X←LOW STEP DX UNTIL HIGH DO BEGIN
00800	Y←X;J←0;
00900	FOR I←1 STEP 1 UNTIL N DO BEGIN
01000	Y←C+Y+0.1*SIND(180*Y)↑2;
01050	IF Y≥1.0 THEN BEGIN Y←Y-1.0;J←J+1 END END;
01100	OUTSTR("
01200	"&CVF(X)&CVF(Y)&CVF(Y-X+J)) END;GO TO A END;